﻿Public Class FeuerkrafttabelleFernkampf160
    Inherits Angriffstabelle
    Public Overrides Function GetWert(ByVal Name As String) As Integer
        Dim E As ObjektEinheit = GetUnit(Name)
        If E.MaximaleReichweite > 1 Then
            Return 160
        Else
            Return 90
        End If
    End Function
    Public Overrides Function ToString() As String
        Return "fernkampf|160|90"
    End Function
End Class
